home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / script_t < prev    next >
Text File  |  1992-02-23  |  1KB  |  43 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/comp/script.t.old    Tue Apr 23 22:38:16 1991
  14. --- t/comp/script.t    Thu Nov 14 08:57:06 1991
  15. ***************
  16. *** 4,9 ****
  17. --- 4,17 ----
  18.   
  19.   print "1..3\n";
  20.   
  21. + eval('umask');    # won't work on MS-DOS
  22. + if ( $@ ) {
  23. +     $rm = $ENV{'ROOTDIR'} . '/bin/rm';    # MS-DOS with MKS kit
  24. + }
  25. + else {
  26. +     $rm = '/bin/rm';
  27. + }
  28. + 
  29.   $x = `./perl -e 'print "ok\n";'`;
  30.   
  31.   if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
  32. ***************
  33. *** 20,23 ****
  34.   
  35.   if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
  36.   
  37. ! `/bin/rm -f Comp.script`;
  38. --- 28,31 ----
  39.   
  40.   if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
  41.   
  42. ! `$rm -f Comp.script`;
  43.